home *** CD-ROM | disk | FTP | other *** search
/ Lake Powell / Lake Powell.iso / pc / glc5gcdm.dxr / 00205.ls < prev    next >
Encoding:
Text File  |  1998-04-16  |  860 b   |  42 lines
  1. on startMovie
  2.   global gQTVRObj
  3.   QTVREnter(xtra("QTVRXtra"))
  4.   set gQTVRObj to new(xtra("QTVRXtra"))
  5. end
  6.  
  7. on stopMovie
  8.   global gQTVRObj
  9.   QTVRClose(gQTVRObj)
  10.   QTVRExit(xtra("QTVRXtra"))
  11. end
  12.  
  13. on openQTVRMovie pMovieName, pSprite
  14.   global gQTVRObj
  15.   QTVRClose(gQTVRObj)
  16.   set tRect to rectToStr(the rect of sprite pSprite)
  17.   put QTVROpen(gQTVRObj, pMovieName, tRect, "visible")
  18. end
  19.  
  20. on rectToStr myRect
  21.   set myString to string(myRect)
  22.   delete char 1 to 5 of myString
  23.   delete char the length of myString of myString
  24.   return myString
  25. end
  26.  
  27. on pointToStr myPoint
  28.   set myString to string(myPoint)
  29.   delete char 1 to 6 of myString
  30.   delete char the length of myString of myString
  31.   return myString
  32. end
  33.  
  34. on CloseVR
  35.   global gQTVRObj
  36.   puppetSprite(18, 0)
  37.   QTVRClose(gQTVRObj)
  38.   set the ink of sprite 10 to 1
  39.   updateStage()
  40.   set the ink of sprite 10 to 0
  41. end
  42.